home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / winterp-1.13 / src-server / wc_RowColumn.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-10-04  |  27.9 KB  |  659 lines
  1. /* -*-C-*-
  2. ********************************************************************************
  3. *
  4. * File:         wc_RowColumn.c
  5. * RCS:          $Header: wc_RowColumn.c,v 1.4 91/03/14 03:14:59 mayer Exp $
  6. * Description:  XM_ROW_COLUMN_WIDGET_CLASS
  7. * Author:       Niels Mayer, HPLabs
  8. * Created:      Sat Oct 28 04:28:02 1989
  9. * Modified:     Thu Oct  3 23:40:39 1991 (Niels Mayer) mayer@hplnpm
  10. * Language:     C
  11. * Package:      N/A
  12. * Status:       X11r5 contrib tape release
  13. *
  14. * WINTERP Copyright 1989, 1990, 1991 Hewlett-Packard Company (by Niels Mayer).
  15. * XLISP version 2.1, Copyright (c) 1989, by David Betz.
  16. *
  17. * Permission to use, copy, modify, distribute, and sell this software and its
  18. * documentation for any purpose is hereby granted without fee, provided that
  19. * the above copyright notice appear in all copies and that both that
  20. * copyright notice and this permission notice appear in supporting
  21. * documentation, and that the name of Hewlett-Packard and David Betz not be
  22. * used in advertising or publicity pertaining to distribution of the software
  23. * without specific, written prior permission.  Hewlett-Packard and David Betz
  24. * make no representations about the suitability of this software for any
  25. * purpose. It is provided "as is" without express or implied warranty.
  26. *
  27. * HEWLETT-PACKARD AND DAVID BETZ DISCLAIM ALL WARRANTIES WITH REGARD TO THIS
  28. * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
  29. * IN NO EVENT SHALL HEWLETT-PACKARD NOR DAVID BETZ BE LIABLE FOR ANY SPECIAL,
  30. * INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  31. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  32. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  33. * PERFORMANCE OF THIS SOFTWARE.
  34. *
  35. * See ./winterp/COPYRIGHT for information on contacting the authors.
  36. * 
  37. * Please send modifications, improvements and bugfixes to mayer@hplabs.hp.com
  38. * Post XLISP-specific questions/information to the newsgroup comp.lang.lisp.x
  39. *
  40. ********************************************************************************
  41. */
  42. static char rcs_identity[] = "@(#)$Header: wc_RowColumn.c,v 1.4 91/03/14 03:14:59 mayer Exp $";
  43.  
  44. #include <stdio.h>
  45. #include <Xm/Xm.h>
  46. #include <Xm/RowColumn.h>
  47. #include "winterp.h"
  48. #include "user_prefs.h"
  49. #include "xlisp/xlisp.h"
  50. #include "w_funtab.h"
  51.  
  52.  
  53. extern Widget Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(); /* w_classes.c */
  54.  
  55.  
  56. /*****************************************************************************
  57.  * (send XM_ROW_COLUMN_WIDGET_CLASS :new 
  58.  *                           [:managed/:unmanaged]
  59.  *                           [:radio_box/:option_menu/:menu_bar/
  60.  *                            :popup_menu,:pulldown_menu]
  61.  *                           [<name>]
  62.  *                           <parent> 
  63.  *                           [:XMN_<arg1> <val1>]
  64.  *                           [. . .             ]
  65.  *                           [:XMN_<argN> <valN>])
  66.  *
  67.  * The optional keyword submessage :managed will cause a subsequent call
  68.  * to XtManageChild(). If the submessage :unmanaged is present, or no
  69.  * submessage, then XtManageChild() won't be called, and the resulting
  70.  * widget will be returned unmanaged.
  71.  *
  72.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new ...)
  73.  *     -->  XmCreateRowColumn();
  74.  *
  75.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :work_area...)        -- Motif 1.1 only
  76.  *     -->  XmCreateWorkArea();                        -- Motif 1.1 only
  77.  *
  78.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :radio_box ...)
  79.  *     -->  XmCreateRadioBox();
  80.  *
  81.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :simple_radio_box ...)    -- Motif 1.1 only
  82.  *     -->  XmCreateSimpleRadioBox();                    -- Motif 1.1 only
  83.  *
  84.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :option_menu ...)
  85.  *     --> XmCreateOptionMenu();
  86.  *
  87.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :simple_option_menu ...)    -- Motif 1.1 only
  88.  *     --> XmCreateSimpleOptionMenu();                                    -- Motif 1.1 only
  89.  *
  90.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :menu_bar ...)
  91.  *     --> XmCreateMenuBar();
  92.  *
  93.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :simple_menu_bar ...)    -- Motif 1.1 only
  94.  *     --> XmCreateSimpleMenuBar();                    -- Motif 1.1 only
  95.  *
  96.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :popup_menu ...)
  97.  *     --> XmCreatePopupMenu();
  98.  *
  99.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :simple_popup_menu ...)    -- Motif 1.1 only
  100.  *     --> XmCreateSimplePopupMenu();                    -- Motif 1.1 only
  101.  *
  102.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :pulldown_menu ...)
  103.  *     --> XmCreatePulldownMenu();
  104.  *
  105.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :simple_pulldown_menu ...) -- Motif 1.1 only
  106.  *     --> XmCreateSimplePulldownMenu();                    -- Motif 1.1 only
  107.  *
  108.  *     (send XM_ROW_COLUMN_WIDGET_CLASS :new :simple_check_box ...)    -- Motif 1.1 only
  109.  *     --> XmCreateSimpleCheckBox();                    -- Motif 1.1 only
  110.  ****************************************************************************/
  111. static LVAL k_RADIO_BOX, k_OPTION_MENU, k_MENU_BAR, k_POPUP_MENU, k_PULLDOWN_MENU;
  112. #ifdef WINTERP_MOTIF_11
  113. static LVAL k_WORK_AREA, k_SIMPLE_RADIO_BOX, k_SIMPLE_OPTION_MENU, k_SIMPLE_MENU_BAR, k_SIMPLE_POPUP_MENU, k_SIMPLE_PULLDOWN_MENU, k_SIMPLE_CHECK_BOX;
  114. #endif                /* WINTERP_MOTIF_11 */
  115. LVAL Xm_Row_Column_Widget_Class_Method_ISNEW()
  116. {
  117.   extern ArgList Wres_Get_LispArglist(); /* from w_resources.c */
  118.   extern void    Wres_Free_C_Arglist_Data(); /* from w_resources.c */
  119.   extern LVAL k_managed, k_unmanaged;
  120.   LVAL self, o_parent;
  121.   char* name;
  122.   Boolean managed_p;
  123.   LVAL rc_kind;
  124.   Widget widget_id, parent_widget_id;
  125.  
  126.   self = xlgaobject();        /* NOTE: xlobj.c:clnew() returns an OBJECT; if this method
  127.                    returns successfully, it will return a WIDGETOBJ */
  128.   
  129.   /* get optional managed/unmanaged arg */
  130.   if (moreargs() && ((*xlargv == k_managed) || (*xlargv == k_unmanaged)))
  131.     managed_p = (nextarg() == k_managed);
  132.   else
  133.     managed_p = FALSE;        /* by default don't call XtManageChild() */
  134.  
  135.   /* get optional :radio_box/:option_menu... arg */
  136.   if (moreargs() && (   (*xlargv == k_RADIO_BOX)
  137.              || (*xlargv == k_OPTION_MENU)
  138.              || (*xlargv == k_MENU_BAR)
  139.              || (*xlargv == k_POPUP_MENU)
  140.              || (*xlargv == k_PULLDOWN_MENU)
  141. #ifdef WINTERP_MOTIF_11
  142.              || (*xlargv == k_WORK_AREA)
  143.              || (*xlargv == k_SIMPLE_RADIO_BOX)
  144.              || (*xlargv == k_SIMPLE_OPTION_MENU)
  145.              || (*xlargv == k_SIMPLE_MENU_BAR)
  146.              || (*xlargv == k_SIMPLE_POPUP_MENU)
  147.              || (*xlargv == k_SIMPLE_PULLDOWN_MENU)
  148.              || (*xlargv == k_SIMPLE_CHECK_BOX)
  149. #endif                /* WINTERP_MOTIF_11 */
  150.              ))
  151.     rc_kind = nextarg();
  152.   else
  153.     rc_kind = NIL;        /* default is XmCreateRowColumn() */
  154.  
  155.   /* get optional <name> arg */
  156.   if (moreargs() && (stringp(*xlargv)))
  157.     name = (char*) getstring(nextarg());
  158.   else
  159.     name = "";            /* default name */
  160.  
  161.   /* get required <parent> widget-object arg */
  162.   parent_widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&o_parent);
  163.  
  164.   /*
  165.    * Store the widget object <self> in the XmNuserData resource on the
  166.    * widget. This will allow us to retrieve the widget object from Xtoolkit
  167.    * functions returning widget ID's without having to keep around a table
  168.    * of widgetID-->widget-objects.
  169.    */
  170.   ARGLIST_RESET(); ARGLIST_ADD(XmNuserData, (XtArgVal) self); 
  171.  
  172.   if (moreargs()) {        /* if there are more arguments, */
  173.     Cardinal xt_numargs;    /* then we have some extra widget resources to set */
  174.     ArgList xt_arglist = Wres_Get_LispArglist(self, parent_widget_id, ARGLIST(), &xt_numargs);
  175.     if (rc_kind == NIL)
  176.       widget_id = XmCreateRowColumn(parent_widget_id, name, xt_arglist, xt_numargs);
  177.     else if (rc_kind == k_RADIO_BOX)
  178.       widget_id = XmCreateRadioBox(parent_widget_id, name, xt_arglist, xt_numargs);
  179.     else if (rc_kind == k_OPTION_MENU)
  180.       widget_id = XmCreateOptionMenu(parent_widget_id, name, xt_arglist, xt_numargs);
  181.     else if (rc_kind == k_MENU_BAR)
  182.       widget_id = XmCreateMenuBar(parent_widget_id, name, xt_arglist, xt_numargs);
  183.     else if (rc_kind == k_POPUP_MENU)
  184.       widget_id = XmCreatePopupMenu(parent_widget_id, name, xt_arglist, xt_numargs);
  185.     else if (rc_kind == k_PULLDOWN_MENU)
  186.       widget_id = XmCreatePulldownMenu(parent_widget_id, name, xt_arglist, xt_numargs);
  187. #ifdef WINTERP_MOTIF_11
  188.     else if (rc_kind == k_WORK_AREA)
  189.       widget_id = XmCreateWorkArea(parent_widget_id, name, xt_arglist, xt_numargs);
  190.     else if (rc_kind == k_SIMPLE_RADIO_BOX)
  191.       widget_id = XmCreateSimpleRadioBox(parent_widget_id, name, xt_arglist, xt_numargs);
  192.     else if (rc_kind == k_SIMPLE_OPTION_MENU)
  193.       widget_id = XmCreateSimpleOptionMenu(parent_widget_id, name, xt_arglist, xt_numargs);
  194.     else if (rc_kind == k_SIMPLE_MENU_BAR)
  195.       widget_id = XmCreateSimpleMenuBar(parent_widget_id, name, xt_arglist, xt_numargs);
  196.     else if (rc_kind == k_SIMPLE_POPUP_MENU)
  197.       widget_id = XmCreateSimplePopupMenu(parent_widget_id, name, xt_arglist, xt_numargs);
  198.     else if (rc_kind == k_SIMPLE_PULLDOWN_MENU)
  199.       widget_id = XmCreateSimplePulldownMenu(parent_widget_id, name, xt_arglist, xt_numargs);
  200.     else if (rc_kind == k_SIMPLE_CHECK_BOX)
  201.       widget_id = XmCreateSimpleCheckBox(parent_widget_id, name, xt_arglist, xt_numargs);
  202. #endif                /* WINTERP_MOTIF_11 */
  203.     else
  204.       xlfatal("Bug in Xm_Row_Column_Widget_Class_Method_ISNEW()");
  205.     Wres_Free_C_Arglist_Data();
  206.   }
  207.   else 
  208.     if (rc_kind == NIL)
  209.       widget_id = XmCreateRowColumn(parent_widget_id, name, ARGLIST());
  210.     else if (rc_kind == k_RADIO_BOX)
  211.       widget_id = XmCreateRadioBox(parent_widget_id, name, ARGLIST());
  212.     else if (rc_kind == k_OPTION_MENU)
  213.       widget_id = XmCreateOptionMenu(parent_widget_id, name, ARGLIST());
  214.     else if (rc_kind == k_MENU_BAR)
  215.       widget_id = XmCreateMenuBar(parent_widget_id, name, ARGLIST());
  216.     else if (rc_kind == k_POPUP_MENU)
  217.       widget_id = XmCreatePopupMenu(parent_widget_id, name, ARGLIST());
  218.     else if (rc_kind == k_PULLDOWN_MENU)
  219.       widget_id = XmCreatePulldownMenu(parent_widget_id, name, ARGLIST());
  220. #ifdef WINTERP_MOTIF_11
  221.     else if (rc_kind == k_WORK_AREA)
  222.       widget_id = XmCreateWorkArea(parent_widget_id, name, ARGLIST());
  223.     else if (rc_kind == k_SIMPLE_RADIO_BOX)
  224.       widget_id = XmCreateSimpleRadioBox(parent_widget_id, name, ARGLIST());
  225.     else if (rc_kind == k_SIMPLE_OPTION_MENU)
  226.       widget_id = XmCreateSimpleOptionMenu(parent_widget_id, name, ARGLIST());
  227.     else if (rc_kind == k_SIMPLE_MENU_BAR)
  228.       widget_id = XmCreateSimpleMenuBar(parent_widget_id, name, ARGLIST());
  229.     else if (rc_kind == k_SIMPLE_POPUP_MENU)
  230.       widget_id = XmCreateSimplePopupMenu(parent_widget_id, name, ARGLIST());
  231.     else if (rc_kind == k_SIMPLE_PULLDOWN_MENU)
  232.       widget_id = XmCreateSimplePulldownMenu(parent_widget_id, name, ARGLIST());
  233.     else if (rc_kind == k_SIMPLE_CHECK_BOX)
  234.       widget_id = XmCreateSimpleCheckBox(parent_widget_id, name, ARGLIST());
  235. #endif                /* WINTERP_MOTIF_11 */
  236.     else
  237.       xlfatal("Bug in Xm_Row_Column_Widget_Class_Method_ISNEW()");
  238.  
  239.   Wcls_Initialize_WIDGETOBJ(self, widget_id);
  240.   
  241.   if (managed_p)
  242.     XtManageChild(widget_id);
  243.   
  244. #ifdef DEBUG_WINTERP_1
  245.   Wcls_Print_WidgetObj_Info(self);
  246. #endif
  247.   return (self);
  248. }
  249.  
  250.  
  251. /******************************************************************************
  252.  * typedef struct
  253.  * {
  254.  *     int     reason;
  255.  *     XEvent  *event;
  256.  *     Widget  widget;
  257.  *     char    *data;
  258.  *     char    *callbackstruct;
  259.  * } XmRowColumnCallbackStruct;
  260.  *
  261.  * Note: if rowcol widget has an XmNentryCallback set, then any 
  262.  * activate action on any of it's entries will produce a callback
  263.  * on the rowcol widget with
  264.  *    cb.reason==XmCR_ACTIVATE,
  265.  *    cb.event==cb.callbackstruct->event
  266.  *    cb.widget==<entrywidget>
  267.  *    cb.data==<entrywidget's client-data if a activate callback was spec'd for entry and it had client-data> 
  268.  *    cb.callbackstruct==<entrywidget's call-data> (XmAnyCallbackStruct/XmToggleButtonCallbackStruct)
  269.  *
  270.  * The weird part here is the cb.callbackstruct slot -- we don't know the class
  271.  * of the entrywidget, so we can't know what kind of callbackstruct it got.
  272.  * We can only be guaranteed that the activated-entry-widget's .reason 
  273.  * fields are valid. If we have a toggle button, then we may want to 
  274.  * access the .set slot of the XmToggleButtonCallbackStruct. (??)
  275.  ******************************************************************************/
  276. static LVAL s_CALLBACK_ENTRY_WIDGET, s_CALLBACK_ENTRY_REASON, s_CALLBACK_ENTRY_SET, s_CALLBACK_ENTRY_DATA;
  277. #ifdef WINTERP_MOTIF_11
  278. static LVAL s_CALLBACK_ENTRY_CLICK_COUNT;
  279. #endif                /* WINTERP_MOTIF_11 */
  280.  
  281. static void Lexical_Bindings_For_XmRowColumnCallbackStruct(bindings_list, lexical_env, cd, o_widget)
  282.      LVAL bindings_list;    /* a list of symbols to which values from XmRowColumnCallbackStruct are bound */
  283.      LVAL lexical_env;        
  284.      XmRowColumnCallbackStruct* cd;
  285.      LVAL o_widget;        /* XLTYPE_WIDGETOBJ */
  286. {
  287.   extern LVAL s_CALLBACK_WIDGET, s_CALLBACK_REASON, s_CALLBACK_XEVENT; /* w_callbacks.c */
  288.   extern LVAL Wcb_Get_Callback_Reason_Symbol();    /* w_callbacks.c */
  289.   register LVAL s_bindname;
  290.   extern LVAL true;
  291.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  292.  
  293.   for ( ; consp(bindings_list); bindings_list = cdr(bindings_list)) {
  294.  
  295.     s_bindname = car(bindings_list);
  296.  
  297.     if (s_bindname == s_CALLBACK_WIDGET) {
  298.       xlpbind(s_bindname, o_widget, lexical_env);
  299.     }
  300.     else if (s_bindname == s_CALLBACK_REASON) {
  301.       xlpbind(s_bindname, Wcb_Get_Callback_Reason_Symbol(cd->reason), lexical_env);
  302.     }
  303.     else if (s_bindname == s_CALLBACK_XEVENT) {
  304.       xlpbind(s_bindname, (cd->event) ? cv_xevent(cd->event) : NIL, lexical_env);
  305.     }
  306.     else if (s_bindname == s_CALLBACK_ENTRY_WIDGET) {
  307.       xlpbind(s_bindname, Wcls_WidgetID_To_WIDGETOBJ(cd->widget), lexical_env);
  308.     }
  309.     else if (s_bindname == s_CALLBACK_ENTRY_REASON) {
  310.       xlpbind(s_bindname, (cd->callbackstruct) ? Wcb_Get_Callback_Reason_Symbol(((XmToggleButtonCallbackStruct*) cd->callbackstruct)->reason) : NIL, lexical_env);
  311.     }
  312.     else if (s_bindname == s_CALLBACK_ENTRY_SET) { /* this'll give meaningless results if entry isn't a togglebutton  */
  313.       xlpbind(s_bindname, (cd->callbackstruct) ? ((((XmToggleButtonCallbackStruct*) cd->callbackstruct)->set) ? true : NIL) : NIL, lexical_env);
  314.     }
  315. #ifdef WINTERP_MOTIF_11
  316.     else if (s_bindname == s_CALLBACK_ENTRY_CLICK_COUNT) { /* this'll give meaningless results if entry isn't a pushbutton, drawnbutton, arrowbutton  */
  317.       xlpbind(s_bindname, (cd->callbackstruct) ? cvfixnum((FIXTYPE) ((XmPushButtonCallbackStruct*) cd->callbackstruct)->click_count) : NIL, lexical_env);
  318.     }
  319. #endif                /* WINTERP_MOTIF_11 */
  320.     /* ----- WARNING: Using this could cause coredump!! -- this should dereference to the CALLBACKOBJ set for the entry, else NIL ---- */
  321.     else if (s_bindname == s_CALLBACK_ENTRY_DATA) { 
  322.       xlpbind(s_bindname, (LVAL) cd->data, lexical_env);
  323.     }
  324.     /* ------------------------------------------------------------------------------------------------------------------------------- */
  325.     else {
  326.       extern char temptext[];    /* from winterp.c */
  327.       sprintf(temptext,
  328. #ifdef WINTERP_MOTIF_11
  329.           "Unknown binding name in XmRowColumnCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s %s %s %s].",
  330. #else                /* Motif 1.0 */
  331.           "Unknown binding name in XmRowColumnCallbackStruct callback evaluator. Valid symbols are [%s %s %s %s %s %s %s].",
  332. #endif                /* WINTERP_MOTIF_11 */
  333.           (char*) getstring(getpname(s_CALLBACK_WIDGET)),
  334.           (char*) getstring(getpname(s_CALLBACK_REASON)),
  335.           (char*) getstring(getpname(s_CALLBACK_XEVENT)),
  336.           (char*) getstring(getpname(s_CALLBACK_ENTRY_WIDGET)),
  337.           (char*) getstring(getpname(s_CALLBACK_ENTRY_REASON)),
  338.           (char*) getstring(getpname(s_CALLBACK_ENTRY_SET)),
  339. #ifdef WINTERP_MOTIF_11
  340.           (char*) getstring(getpname(s_CALLBACK_ENTRY_CLICK_COUNT)),
  341. #endif                /* WINTERP_MOTIF_11 */
  342.           (char*) getstring(getpname(s_CALLBACK_ENTRY_DATA)));
  343.       xlerror(temptext, s_bindname);
  344.     }
  345.   }
  346. }
  347.  
  348.  
  349. /******************************************************************************
  350.  * This is called indirectly via XtAddCallback() for callbacks returning
  351.  * an XmRowColumnCallbackStruct as call_data.
  352.  ******************************************************************************/
  353. static void XmRowColumnCallbackStruct_Callbackproc(widget, client_data, call_data)
  354.      Widget    widget;
  355.      XtPointer client_data;
  356.      XtPointer call_data;
  357. {
  358.   extern void Wcb_Meta_Callbackproc(); /* w_callbacks.c */
  359.  
  360.   Wcb_Meta_Callbackproc(client_data, call_data,
  361.             Lexical_Bindings_For_XmRowColumnCallbackStruct,
  362.             NULL);
  363. }
  364.  
  365.  
  366. /******************************************************************************
  367.  * Same as WIDGET_CLASS's :add_callback method except that this understands
  368.  * how to get values from the XmRowColumnCallbackStruct.
  369.  * Specifying one or more of the following symbols in the callback bindings 
  370.  * list will bind that symbol's value in the lexical environment of the callback:
  371.  * CALLBACK_WIDGET
  372.  * CALLBACK_REASON
  373.  * CALLBACK_XEVENT
  374.  * CALLBACK_ENTRY_WIDGET
  375.  * CALLBACK_ENTRY_REASON
  376.  * CALLBACK_ENTRY_SET
  377.  * CALLBACK_ENTRY_DATA
  378.  * CALLBACK_ENTRY_CLICK_COUNT -- new resource for Motif 1.1
  379.  ******************************************************************************/
  380. LVAL Xm_Row_Column_Widget_Class_Method_ADD_CALLBACK()
  381. {
  382.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  383.  
  384.   return (Wcb_Meta_Method_Add_Callback(XmRowColumnCallbackStruct_Callbackproc, FALSE));
  385. }
  386.  
  387.  
  388. /******************************************************************************
  389.  * Same as WIDGET_CLASS's :set_callback method except that this understands
  390.  * how to get values from the XmRowColumnCallbackStruct.
  391.  * Specifying one or more of the following symbols in the callback bindings 
  392.  * list will bind that symbol's value in the lexical environment of the callback:
  393.  * CALLBACK_WIDGET
  394.  * CALLBACK_REASON
  395.  * CALLBACK_XEVENT
  396.  * CALLBACK_ENTRY_WIDGET
  397.  * CALLBACK_ENTRY_REASON
  398.  * CALLBACK_ENTRY_SET
  399.  * CALLBACK_ENTRY_DATA
  400.  * CALLBACK_ENTRY_CLICK_COUNT -- new resource for Motif 1.1
  401.  ******************************************************************************/
  402. LVAL Xm_Row_Column_Widget_Class_Method_SET_CALLBACK()
  403. {
  404.   extern LVAL Wcb_Meta_Method_Add_Callback(); /* w_callbacks.c */
  405.  
  406.   return (Wcb_Meta_Method_Add_Callback(XmRowColumnCallbackStruct_Callbackproc, TRUE));
  407. }
  408.  
  409.  
  410. /******************************************************************************
  411.  * (send <popup_menu> :MENU_POSITION <event>)
  412.  *      ==> returns <popup_menu>
  413.  * This method will position a popup menupane at the position specified by
  414.  * event->x_root, event->y_root, where <event> is an XEvent. This
  415.  * method should only be called on a row_column widget that was created via
  416.  * (send XM_ROW_COLUMN_WIDGET_CLASS :new :popup_menu ...).
  417.  *
  418.  * Possible design change: should I make a POPUP_MENU_WIDGET_CLASS that
  419.  * has this as one of it's methods, and don't provide this method on
  420.  * other rowcolumn widgets?
  421.  *
  422.  * void XmMenuPosition (p, event)
  423.  *     Widget  p;
  424.  *     XButtonPressedEvent *event;
  425.  ******************************************************************************/
  426. LVAL Xm_Row_Column_Widget_Class_Method_MENU_POSITION()
  427. {
  428.   LVAL self;
  429.   Widget widget_id;
  430.   XEvent *event;
  431.  
  432.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  433.   event = get_xevent(xlga_xevent());
  434.   xllastarg();
  435.   
  436.   XmMenuPosition(widget_id, event);
  437.   
  438.   return (self);
  439. }
  440.  
  441.  
  442. /******************************************************************************
  443.  * (send <option_menu> :OPTION_LABEL_GADGET)
  444.  *      ==> this method returns the WIDGETOBJ corresponding to the label
  445.  *          gadget created in an <option_menu> instance. An <option_menu>
  446.  *          rowcolumn instance can be created by doing
  447.  *          (send XM_ROW_COLUMN_WIDGET_CLASS :new :option_menu ...)
  448.  *
  449.  * Widget XmOptionLabelGadget (m)
  450.  *     Widget   m;
  451.  ******************************************************************************/
  452. LVAL Xm_Row_Column_Widget_Class_Method_OPTION_LABEL_GADGET()
  453. {
  454.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  455.   LVAL self;
  456.   Widget widget_id;
  457.  
  458.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  459.   xllastarg();
  460.   
  461.   return (Wcls_WidgetID_To_WIDGETOBJ(XmOptionLabelGadget(widget_id)));
  462. }
  463.  
  464.  
  465. /******************************************************************************
  466.  * (send <option_menu> :OPTION_BUTTON_GADGET)
  467.  *      ==> this method returns the WIDGETOBJ corresponding to the cascade
  468.  *          button gadget created in an <option_menu> instance. An
  469.  *          <option_menu> rowcolumn instance can be created by doing
  470.  *          (send XM_ROW_COLUMN_WIDGET_CLASS :new :option_menu ...)
  471.  *
  472.  * Widget XmOptionButtonGadget (m)
  473.  *     Widget   m;
  474.  ******************************************************************************/
  475. LVAL Xm_Row_Column_Widget_Class_Method_OPTION_BUTTON_GADGET()
  476. {
  477.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  478.   LVAL self;
  479.   Widget widget_id;
  480.  
  481.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  482.   xllastarg();
  483.  
  484.   return (Wcls_WidgetID_To_WIDGETOBJ(XmOptionButtonGadget(widget_id)));
  485. }
  486.  
  487.  
  488. #ifdef WINTERP_MOTIF_11
  489. /******************************************************************************
  490.  * (send <menu> :GET_POSTED_FROM_WIDGET)
  491.  *      ==> this method returns the WIDGETOBJ corresponding to the the widget
  492.  * from which the menu was posted. in a popup, it is the widget which initiated
  493.  * the post. If it is in a pulldown from a menubar or option menu, then the
  494.  * returned widget is the menubar or option menu.
  495.  *
  496.  * ----------------------------------------------------------------------------
  497.  *  Widget XmGetPostedFromWidget (Widget menu);
  498.  ******************************************************************************/
  499. LVAL Xm_Row_Column_Widget_Class_Method_GET_POSTED_FROM_WIDGET()
  500. {
  501.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ();
  502.   LVAL self;
  503.   Widget widget_id;
  504.  
  505.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  506.   xllastarg();
  507.   
  508.   return (Wcls_WidgetID_To_WIDGETOBJ(XmGetPostedFromWidget(widget_id)));
  509. }
  510. #endif                /* WINTERP_MOTIF_11 */
  511.  
  512.  
  513. #ifdef WINTERP_MOTIF_11
  514. /*
  515.  * <limits.h> defines machine dependent limits on sizes of numbers, if your
  516.  * machine doesn't have this, then your compiler doesn't conform to standards
  517.  * XPG2, XPG3, POSIX.1, FIPS 151-1 and you should complain to the manufacturer.
  518.  * 
  519.  * If for some reason your system isn't standards-conforming, you may work
  520.  * around this problem by using the following definitions (assuming 32 bit machine):
  521.  * 
  522.  * #define LONG_MIN (-2147483647 - 1)
  523.  */
  524. #include <limits.h>
  525. /******************************************************************************
  526.  * (send <rowcolwidget> :GET_SUB_MENU_WIDGET)
  527.  *      ==> this method returns the WIDGETOBJ corresponding to the the widget
  528.  * returned by resource XmNsubMenuId.
  529.  *
  530.  * Due to some weird 1.1 bug, (perhaps in motif) doing
  531.  * (send <rowcolwidget> :get_values :xmn_sub_menu_id nil) returns
  532.  * <rowcolwidget>. This seems to be failing in the same way that :PARENT
  533.  * is failing on scrolled text and list widgets. See comments in 
  534.  * wc_Text.c:Xm_Text_Widget_Class_Method_PARENT() and
  535.  * wc_List.c:Xm_List_Widget_Class_Method_PARENT()
  536.  * for details.
  537.  * ----------------------------------------------------------------------------
  538.  ******************************************************************************/
  539. LVAL Xm_Row_Column_Widget_Class_Method_GET_SUB_MENU_WIDGET()
  540. {
  541.   extern LVAL Wcls_WidgetClassID_To_WIDGETCLASSOBJ(); /* w_classes.c */
  542.   extern LVAL Wcls_WidgetID_To_WIDGETOBJ(); /* w_classes.c */
  543.  
  544.   LVAL self, lval_submenuid;
  545.   Widget widget_id, submenu_id;
  546.   XtPointer widget_data = (XtPointer) LONG_MIN;
  547.  
  548.   widget_id = Wcls_Get_WIDGETOBJ_Argument_Returning_Validated_WidgetID(&self);
  549.   xllastarg();
  550.  
  551.   ARGLIST_RESET(); ARGLIST_ADD(XmNsubMenuId, &widget_data);
  552.   XtGetValues(widget_id, ARGLIST());
  553.   if (widget_data == (XtPointer) LONG_MIN) /* make sure that XmNsubMenuId resource actually exists on the widget in question. */
  554.     xlfail("Internal error in Xm_Row_Column_Widget_Class_Method_GET_SUB_MENU_WIDET() -- couldn't retrieve XmNsubMenuId resource from widget. Motif bug?");
  555.   if (widget_data == NULL)
  556.     return (NIL);
  557.  
  558.   submenu_id = (Widget) widget_data;
  559.  
  560.   lval_submenuid = Wcls_WidgetID_To_WIDGETOBJ(submenu_id);
  561.   
  562.   if (lval_submenuid != self)
  563.     return (lval_submenuid);
  564.   else {            /* handle motif 1.1 fuckup */
  565.     LVAL o_widgetclass;
  566.     if (o_widgetclass = Wcls_WidgetClassID_To_WIDGETCLASSOBJ(XtClass(submenu_id))) /* returns NIL on failure */
  567.       /* (2): Create a new WIDGETOBJ of the appropriate class. */
  568.       lval_submenuid = newobject(o_widgetclass, WIDGETOBJ_SIZE);
  569.     else {            /* fail gracefully (i think). */
  570.       extern LVAL o_WIDGET_CLASS; /* from wc_WIDGET.c */
  571.       errputstr("Warning -- In Wcls_WidgetID_To_WIDGETOBJ() couldn't find a valid\n");
  572.       errputstr("           widgetclass object inside widget classrecord. Creating\n");
  573.       errputstr("           a \"generic\" WIDGETOBJ of class WIDGET_CLASS.\n");
  574.       lval_submenuid = newobject(o_WIDGET_CLASS, WIDGETOBJ_SIZE);
  575.     }
  576.     Wcls_Initialize_WIDGETOBJ(lval_submenuid, submenu_id);
  577.     
  578.     /* Store the pointer to the new widgetobj in the widget's XmNuserData resource. */
  579.     ARGLIST_RESET(); ARGLIST_ADD(XmNuserData, (XtArgVal) lval_submenuid);
  580.     XtSetValues(submenu_id, ARGLIST());  
  581.     return (lval_submenuid);
  582.   }
  583. }
  584. #endif                /* WINTERP_MOTIF_11 */
  585.  
  586.  
  587. /******************************************************************************
  588.  *
  589.  ******************************************************************************/
  590. Wc_RowColumn_Init()
  591. {
  592.   LVAL o_XM_ROW_COLUMN_WIDGET_CLASS;
  593.   extern LVAL Wcls_Create_Subclass_Of_WIDGET_CLASS(); /* w_classes.c */
  594.   extern      xladdmsg();    /* from xlobj.c */
  595.  
  596. #ifdef WINTERP_MOTIF_11
  597.   k_WORK_AREA        = xlenter(":WORK_AREA");
  598.   k_SIMPLE_RADIO_BOX    = xlenter(":SIMPLE_RADIO_BOX");
  599.   k_SIMPLE_OPTION_MENU    = xlenter(":SIMPLE_OPTION_MENU");
  600.   k_SIMPLE_MENU_BAR    = xlenter(":SIMPLE_MENU_BAR");
  601.   k_SIMPLE_POPUP_MENU    = xlenter(":SIMPLE_POPUP_MENU");
  602.   k_SIMPLE_PULLDOWN_MENU = xlenter(":SIMPLE_PULLDOWN_MENU");
  603.   k_SIMPLE_CHECK_BOX    = xlenter(":SIMPLE_CHECK_BOX");
  604. #endif                /* WINTERP_MOTIF_11 */
  605.   k_RADIO_BOX          = xlenter(":RADIO_BOX");
  606.   k_OPTION_MENU        = xlenter(":OPTION_MENU");
  607.   k_MENU_BAR           = xlenter(":MENU_BAR");
  608.   k_POPUP_MENU         = xlenter(":POPUP_MENU");
  609.   k_PULLDOWN_MENU      = xlenter(":PULLDOWN_MENU");
  610.  
  611.   s_CALLBACK_ENTRY_WIDGET = xlenter("CALLBACK_ENTRY_WIDGET");
  612.   s_CALLBACK_ENTRY_REASON = xlenter("CALLBACK_ENTRY_REASON");
  613.   s_CALLBACK_ENTRY_SET    = xlenter("CALLBACK_ENTRY_SET");
  614.   s_CALLBACK_ENTRY_DATA   = xlenter("CALLBACK_ENTRY_DATA");
  615. #ifdef WINTERP_MOTIF_11
  616.   s_CALLBACK_ENTRY_CLICK_COUNT = xlenter("CALLBACK_ENTRY_CLICK_COUNT");
  617. #endif                /* WINTERP_MOTIF_11 */
  618.  
  619.   o_XM_ROW_COLUMN_WIDGET_CLASS =
  620.     Wcls_Create_Subclass_Of_WIDGET_CLASS("XM_ROW_COLUMN_WIDGET_CLASS",
  621.                      xmRowColumnWidgetClass);
  622.  
  623.   /*
  624.    * a special :isnew method on this class allows for the creation of this
  625.    * widget inside a popup shell if one of the following submessage keywords
  626.    * are given: 
  627.    * :RADIO_BOX, :OPTION_MENU, :MENU_BAR, :POPUP_MENU, :PULLDOWN_MENU, :WORK_AREA
  628.    * :SIMPLE_RADIO_BOX, :SIMPLE_OPTION_MENU, :SIMPLE_MENU_BAR, :SIMPLE_POPUP_MENU,
  629.    * :SIMPLE_PULLDOWN_MENU, :SIMPLE_CHECK_BOX
  630.    */
  631.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":ISNEW", 
  632.        FTAB_Xm_Row_Column_Widget_Class_Method_ISNEW);
  633.  
  634.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":ADD_CALLBACK",
  635.            FTAB_Xm_Row_Column_Widget_Class_Method_ADD_CALLBACK);
  636.  
  637.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":SET_CALLBACK",
  638.            FTAB_Xm_Row_Column_Widget_Class_Method_SET_CALLBACK);
  639.  
  640.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":MENU_POSITION",
  641.            FTAB_Xm_Row_Column_Widget_Class_Method_MENU_POSITION);
  642.  
  643.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":OPTION_LABEL_GADGET",
  644.            FTAB_Xm_Row_Column_Widget_Class_Method_OPTION_LABEL_GADGET);
  645.  
  646.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":OPTION_BUTTON_GADGET",
  647.            FTAB_Xm_Row_Column_Widget_Class_Method_OPTION_BUTTON_GADGET);
  648.  
  649. #ifdef WINTERP_MOTIF_11
  650.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":GET_POSTED_FROM_WIDGET",
  651.            FTAB_Xm_Row_Column_Widget_Class_Method_GET_POSTED_FROM_WIDGET);
  652. #endif                /* WINTERP_MOTIF_11 */
  653.  
  654. #ifdef WINTERP_MOTIF_11
  655.   xladdmsg(o_XM_ROW_COLUMN_WIDGET_CLASS, ":GET_SUB_MENU_WIDGET",
  656.            FTAB_Xm_Row_Column_Widget_Class_Method_GET_SUB_MENU_WIDGET);
  657. #endif                /* WINTERP_MOTIF_11 */
  658. }
  659.